Top 200 Programs/Top 200 Programs.iso/Bob8/oakley/wrdw9511/product/WORDWRES.EXE/0/RCDATA/TMAINWIN/TMAINWIN.txt

Text File | 1996-03-05 | 10KB | 449 lines

object MainWin: TMainWin
  Left = 319
  Top = 143
  BorderStyle = bsSingle
  Caption = 'Word Wrestle 95'
  ClientHeight = 418
  ClientWidth = 632
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'System'
  Font.Style = []
  Menu = MainMenu1
  Position = poDefault
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object BackImage: TImage
    Left = -20
    Top = 0
    Width = 640
    Height = 510
    AutoSize = True
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object MyGauge: TGauge
    Left = 556
    Top = 76
    Width = 53
    Height = 297
    Kind = gkVerticalBar
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = []
    ForeColor = clNavy
    ParentFont = False
    Progress = 0
  end
  object WhiteImage: TImage
    Left = 320
    Top = 212
    Width = 120
    Height = 120
    Visible = False
  end
  object SavedImage: TImage
    Left = 460
    Top = 180
    Width = 60
    Height = 60
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object Image1: TImage
    Left = 324
    Top = 80
    Width = 120
    Height = 120
    Visible = False
  end
  object CheckList: TButton
    Left = 348
    Top = 380
    Width = 181
    Height = 33
    Caption = '&Check List'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = CheckListClick
  end
  object ExitButton: TButton
    Left = 544
    Top = 380
    Width = 81
    Height = 33
    Caption = 'E&xit'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = ExitButtonClick
  end
  object Scramble: TButton
    Left = 28
    Top = 328
    Width = 145
    Height = 33
    Caption = 'Scram&ble'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = ScrambleClick
  end
  object Start: TButton
    Left = 184
    Top = 328
    Width = 145
    Height = 33
    Caption = '&Start'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = StartClick
  end
  object GuessList: TListBox
    Left = 348
    Top = 40
    Width = 181
    Height = 333
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 19
    ParentFont = False
    TabOrder = 4
    OnMouseUp = GuessListMouseUp
  end
  object WordPanel: TPanel
    Left = 12
    Top = 372
    Width = 329
    Height = 37
    BevelWidth = 2
    Color = clTeal
    TabOrder = 5
    object Label3: TLabel
      Left = 24
      Top = 9
      Width = 57
      Height = 20
      AutoSize = False
      Caption = 'Word'
      Font.Color = clBlack
      Font.Height = -18
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object WordEntry: TEdit
      Left = 92
      Top = 4
      Width = 233
      Height = 29
      AutoSize = False
      Font.Color = clBlack
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnKeyPress = WordEntryKeyPress
    end
  end
  object GuessPanel: TPanel
    Left = 348
    Top = 12
    Width = 181
    Height = 25
    BevelWidth = 2
    Color = clTeal
    TabOrder = 6
    object label4: TLabel
      Left = 4
      Top = 3
      Width = 173
      Height = 20
      Alignment = taCenter
      AutoSize = False
      Caption = 'Word Guesses'
      Font.Color = clBlack
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
  end
  object TimeHeadPanel: TPanel
    Left = 548
    Top = 12
    Width = 69
    Height = 53
    BevelWidth = 2
    Color = clTeal
    TabOrder = 7
    object Label5: TLabel
      Left = 4
      Top = 5
      Width = 61
      Height = 20
      Alignment = taCenter
      AutoSize = False
      Caption = 'Timer'
      Font.Color = clBlack
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object TimePanel: TPanel
      Left = 2
      Top = 26
      Width = 65
      Height = 25
      BevelOuter = bvLowered
      Caption = '00:00:00'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
  end
  object MainMenu1: TMainMenu
    Left = 388
    Top = 256
    object MenuFile: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object MenuOpen: TMenuItem
        Caption = '&Open Puzzle'
        ShortCut = 16463
        OnClick = MenuOpenClick
      end
      object MenuSave: TMenuItem
        Caption = 'Sa&ve Puzzle'
        ShortCut = 16470
        OnClick = MenuSaveClick
      end
      object MenuBuild: TMenuItem
        Caption = '&Design Puzzle'
        ShortCut = 16474
        OnClick = MenuBuildClick
      end
      object MenuList: TMenuItem
        Caption = '&Word List Puzzle'
        ShortCut = 16460
        OnClick = MenuListClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MenuScreenSize: TMenuItem
        Caption = 'S&creen Size'
        ShortCut = 0
        object N640x480: TMenuItem
          Caption = '640x480'
          ShortCut = 16496
          OnClick = N640x480Click
        end
        object N800x600: TMenuItem
          Caption = '800x600'
          ShortCut = 16497
          OnClick = N800x600Click
        end
        object N1024x768: TMenuItem
          Caption = '1024x768'
          ShortCut = 16498
          OnClick = N1024x768Click
        end
        object N1280x1024: TMenuItem
          Caption = '1280x1024'
          ShortCut = 16499
          OnClick = N1280x1024Click
        end
      end
      object MenuPrint: TMenuItem
        Caption = '&Print Puzzle'
        ShortCut = 16464
        OnClick = MenuPrintClick
      end
      object MenuSetup: TMenuItem
        Caption = 'Printer &Setup'
        ShortCut = 16466
        OnClick = MenuSetupClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MenuExit: TMenuItem
        Caption = 'E&xit'
        ShortCut = 16472
        OnClick = MenuExitClick
      end
    end
    object MenuOptions: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object MenuDImensions: TMenuItem
        Caption = '&Dimensions'
        ShortCut = 16452
        OnClick = MenuDImensionsClick
      end
      object MenuFont: TMenuItem
        Caption = '&Puzzle Font'
        ShortCut = 16454
        OnClick = MenuFontClick
      end
      object MenuTimer: TMenuItem
        Caption = '&Timer Options'
        ShortCut = 16468
        OnClick = MenuTimerClick
      end
      object MenuWordLength: TMenuItem
        Caption = '&Word Length'
        ShortCut = 16471
        OnClick = MenuWordLengthClick
      end
      object MenuScoring: TMenuItem
        Caption = 'Word &Scoring'
        ShortCut = 16467
        OnClick = MenuScoringClick
      end
      object MenuPlayOptions: TMenuItem
        Caption = 'Pla&y Options'
        ShortCut = 16473
        OnClick = MenuPlayOptionsClick
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MenuBackBit: TMenuItem
        Caption = 'Show &Background Bitmap'
        ShortCut = 16450
        OnClick = MenuBackBitClick
      end
      object MenuGuessFont: TMenuItem
        Caption = 'Word &Guess Font'
        ShortCut = 16455
        OnClick = MenuGuessFontClick
      end
      object MenuGuessCol: TMenuItem
        Caption = 'Word Guess &Columns'
        ShortCut = 16453
        OnClick = MenuGuessColClick
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MenuAmerican: TMenuItem
        Caption = '&American Dictionary'
        ShortCut = 16461
        OnClick = MenuAmericanClick
      end
      object MenuAddDict: TMenuItem
        Caption = 'Add To D&ictionary'
        ShortCut = 16457
        OnClick = MenuAddDictClick
      end
      object MenuExcludeDict: TMenuItem
        Caption = 'Excl&ude From Dictionary'
        ShortCut = 16469
        OnClick = MenuExcludeDictClick
      end
      object MenuLookUp: TMenuItem
        Caption = '&Look Up Word'
        ShortCut = 16460
        OnClick = MenuLookUpClick
      end
    end
    object MenuHelp: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object MenuContents: TMenuItem
        Caption = '&Contents'
        ShortCut = 16451
        OnClick = MenuContentsClick
      end
      object MenuAbout: TMenuItem
        Caption = '&About'
        ShortCut = 16449
        OnClick = MenuAboutClick
      end
      object MenuOtherProd: TMenuItem
        Caption = 'Other &Products'
        ShortCut = 0
        OnClick = MenuOtherProdClick
      end
      object MenuOrder: TMenuItem
        Caption = '&Order'
        ShortCut = 0
        OnClick = MenuOrderClick
      end
    end
  end
  object MyTimer: TTimer
    OnTimer = MyTimerTimer
    Left = 376
    Top = 292
  end
  object MyPrintSetup: TPrinterSetupDialog
    Left = 424
    Top = 256
  end
  object MyOpenDialog: TOpenDialog
    DefaultExt = 'WRE'
    FileEditStyle = fsEdit
    Filter = 'Word Wrestle (*.WRE)|*.WRE'
    Title = 'Open Word Wrestle File'
    Left = 448
    Top = 292
  end
  object MySaveDialog: TSaveDialog
    DefaultExt = 'WRE'
    FileEditStyle = fsEdit
    Filter = 'Word Wrestle (*.WRE)|*.WRE'
    Title = 'Save Word Wrestle File'
    Left = 412
    Top = 292
  end
  object MyFontDialog: TFontDialog
    Font.Color = clWindowText
    Font.Height = -17
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 460
    Top = 256
  end
end